home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / SetColour.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  383 b   |  31 lines
  1. ; a0 screen
  2. ; d0 n
  3. ; d1 r
  4. ; d2 g
  5. ; d3 b
  6.     xdef    _SetColour
  7.  
  8. _SetColour
  9.     movem.l    d0-d4/a6,-(a7)
  10.     add.w    #44,a0
  11.     move.l    4.w,a6
  12.     move.w    20(a6),d4
  13.     move.l    _GfxBase,a6
  14.     cmp.w    #39,d4
  15.     bpl.s    .39
  16.     lsr.l    #4,d1
  17.     lsr.l    #4,d2
  18.     lsr.l    #4,d3
  19.     jsr    -$120(a6)
  20.     movem.l    (a7)+,d0-d4/a6
  21.     rts
  22. .39    moveq    #24,d4
  23.     lsl.l    d4,d1
  24.     lsl.l    d4,d2
  25.     lsl.l    d4,d3
  26.     jsr    -852(a6)
  27.     movem.l    (a7)+,d0-d4/a6
  28.     rts
  29.  
  30.     xref    _GfxBase
  31.